home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / graphics / fractals / mandelmania 4.1 / rexx / dac1.rexx next >
OS/2 REXX Batch file  |  1995-02-27  |  2KB  |  96 lines
  1. /*--------------------------------------------------------------------------*/
  2. /*                   Mandelmania - ARexx - Script - File                    */
  3. /*--------------------------------------------------------------------------*/
  4.  
  5. /* This script was sent to me by David Andrew Clayton    */
  6.  
  7. address 'rexx_mandelmania'
  8. options results
  9.  
  10. signal on ERROR 
  11. signal on BREAK_C 
  12. signal on BREAK_D
  13.  
  14. pic      = 0
  15.  
  16. 'getanimfilename'
  17. animname = result
  18.  
  19. if result = 'RESULT' then do
  20.     exit 0
  21.     end
  22.  
  23. 'openanim' animname'.anim' 
  24.  
  25. say 'Calculating' animname
  26. say 'Start time'
  27. address command 'date'
  28.  
  29. /*--------------------------------------------------------------------------*/
  30.  
  31. left1   = '-1.747220808820072'
  32. right1  = '-1.747020220165124'
  33. bottom1 = '0.0039443936'
  34. top1    = '0.0041173664'
  35. xc1     = '0'
  36. yc1     = '0'
  37. iter1   = 250
  38. type    = 0
  39.  
  40. /*--------------------------------------------------------------------------*/
  41.  
  42. left2   = '-2.5'
  43. right2  = '1.5'
  44. bottom2 = '-1.75'
  45. top2    = '1.75'
  46. xc2     = '0'
  47. yc2     = '0'
  48. iter2   = 250
  49.  
  50. steps   = 250
  51.  
  52. do i=pic to pic+steps-1 
  53.     say 'interpolate' i-pic steps
  54.     'interpolate' i-pic steps-1 left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  55.     'saveanim' 
  56.     if i <= 1 then do 
  57.         'savefractal' animname'.'i 
  58.         end 
  59.     end 
  60.  
  61. left1   = left2;
  62. right1  = right2;
  63. bottom1 = bottom2;
  64. top1    = top2;
  65. xc1     = xc2;
  66. yc1     = yc2;
  67. iter1   = iter2;
  68.  
  69. pic = pic+steps
  70.  
  71. /*--------------------------------------------------------------------------*/
  72.  
  73. ERROR:
  74. BREAK_C:
  75. BREAK_D:
  76. if (RC ~= 0) then do
  77.     say ' 'SIGL '*-*' SOURCELINE(SIGL)
  78.     say 'Error' RC
  79.     end
  80.  
  81. 'openfractal' animname'.0'    /* For looped animations */
  82. 'saveanim'
  83. 'openfractal' animname'.1'
  84. 'saveanim'
  85.  
  86. 'closeanim'
  87.  
  88. address command 'delete' animname'.0 QUIET'
  89. address command 'delete' animname'.1 QUIET'
  90.  
  91. say 'End time'
  92. address command 'date'
  93.  
  94. exit 0
  95.  
  96.